home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
xlisp
/
amiga
/
xlisp2.arc
/
fact.lsp
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Lisp/Scheme
|
1988-11-17
|
76 b
|
7 lines
(defun fact (n)
(if (< n 2)
1
(* n (fact (1- n)))))